Public Class MultiAsistencia

    Public Shared Sub registrarAusencia(ByVal pidGrupo As Integer, ByVal pidEstudiante As Integer, ByVal pdate As Date)
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_RegistrarAusencia(pidGrupo, pidEstudiante, pdate, False, "")

        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()

    End Sub
    Public Shared Function LevantarAusencias(ByVal pidEstudiante As String) As DataTable
        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarAusenciasXEstudianteDataTable

        Dim qa As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarAusenciasXEstudianteTableAdapter
        qa.Fill(dt, pidEstudiante)
        Return dt

    End Function

    Public Shared Sub ModificarAusencia(ByVal pestaJustificada As Boolean, ByVal pmotivo As String, ByVal pid As Integer)
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter

        dt.sp_ModificarAusencia(pestaJustificada, pmotivo, pid)
        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()

    End Sub
End Class
